home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Tools 2
/
Amiga Tools 2.iso
/
disktools
/
cd-rom
/
yacdp
/
arexx
/
testcd.yacdp
< prev
next >
Wrap
Text File
|
1995-03-09
|
1KB
|
40 lines
/* $VER: 1.2 © 1994 by Frank Würkner. Play first 10 secs of all songs. */
SIGNAL ON SYNTAX /* check syntax */
SIGNAL ON ERROR /* check if command succeeds */
OPTIONS FAILAT 6 /* ignore warnings */
ADDRESS 'YACDP' /* send to YACDP */
/* -------------------------- BEGIN OF YOUR CODE ------------------------- */
'GETVAR STATUS'
if (STATUS < 3) then /* quit if no audio CD */
do
'REQUESTER DUMMY "AREXX-ERROR" "You must insert an audio CD first." "OK"'
EXIT
end
'GETVAR MAXTRACK'
do i=1 to MAXTRACK
'GETVAR TRACKSTART NUM=' i
'PLAYBLOCK ' TRACKSTART
'WAIT ' TRACKSTART+75*10 'FLAGS=' 2+16384+8192
if (ERR ~= 0) then
EXIT
end
'STOP'
/* --------------------------- END OF YOUR CODE -------------------------- */
EXIT
SYNTAX:
SAY "AREXX error at line" SIGL ":" ERRORTEXT(RC)
EXIT
ERROR:
SAY "YACDP error at line" SIGL ":" ERR
EXIT